SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TCCANJ_CL02_U01]    
/*-------------------------------------------------------*/    
/*---Empresa              : OFISIS S.A.                --*/    
/*---Cliente              : OFISIS S.A.                --*/    
/*---Sistema              : Tesoreria                  --*/    
/*---M÷dulo               : Empresa                    --*/    
/*---Programa             : Eliminacion de Documentos  --*/    
/*                          Generados x Letras         --*/    
/*                          Por Canje                  --*/     
/*---Script               : TCCANJ_CL02_U01.sql        --*/    
/*---Nombre SP            : SP_TCCANJ_CL02_U01         --*/    
/*---Desarrollado por     : Reynaldo Menacho           --*/    
/*---Fecha Creaci÷n       : 26/02/2004                 --*/    
/*---Base Datos           : Microsoft Sql Server       --*/    
/*---Versi÷n              : 2000                       --*/    
/*---Invoca a SP          :                            --*/    
/*-------------------------------------------------------*/    
    
/*-------------------------------------------------------*/    
/*---Modificado 1 por     : Maribel Julca Rodriguez      --*/    
/*---Fecha Modificaci©n   : 20/04/2005                   --*/     
/*---Detalle Modificaci©n : ingreso de los campos CO_USUA_CREA Y CO_USUA_MODI                           --*/    
/*-------------------------------------------------------*/    
    
/*-------------------------------------------------------*/    
/*---Comentarios                                       --*/    
/*---                                                  --*/    
/*---                                                  --*/    
/*-------------------------------------------------------*/    
    
/*-------------------------------------------------------*/    
/*---Drop Proc SP_TCCANJ_CL02_U01                      --*/    
/*---Grant all on SP_TCCANJ_CL02_U01 to public         --*/     
/*---SP_TCCANJ_CL02_U01                              --*/    
/*-------------------------------------------------------*/    
 @ISCO_EMPR      TD_VC_002,     
 @ISCO_USUA_MODI TD_VC_008_USUA,    
 @ISCO_CLIE      TD_VC_020,    
 @ISNU_CANJ      TD_VC_008,    
 @ISCO_UNID_CONC TD_VC_003,    
 @IDFE_CANJ  TD_DT_001
	As
Declare    
 @VSCO_ESTA_DOCU   TD_VC_003,    
 @VSCO_ESDO_TMLE   TD_VC_003    
    
    
  Begin Tran SP_TCCANJ_PROV_U01    
    
  Select @VSCO_ESTA_DOCU = CO_ESTA_DOCU From TTTIES_DOCU    
  Where ST_ESDO_0001 = 'S'    
    
  Select @VSCO_ESDO_TMLE = CO_ESTA_DOCU From TTTIES_DOCU    
  Where  ST_ESDO_0007 = 'S'    
    
    
  Update TMLETR_CL02    
  Set CO_ESTA_DOCU = 'ANU',
  CO_USUA_MODI = @ISCO_USUA_MODI,  
  FE_USUA_MODI = GETDATE()    
  From TMLETR_CL02 T1, TDCANJ_CL02 T2    
  Where T1.CO_EMPR = @ISCO_EMPR    
   And T1.CO_CLIE = @ISCO_CLIE    
 And T1.CO_EMPR = T2.CO_EMPR    
   And T1.CO_CLIE = T2.CO_CLIE    
 And T2.CO_UNID_CONC = @ISCO_UNID_CONC    
 And T2.NU_CANJ = @ISNU_CANJ    
 And T2.FE_CANJ = @IDFE_CANJ    
 And T1.NU_LETR_CLIE = T2.NU_LETR_CLIE    
    
  If @@error <> 0    
  Begin    
    Rollback tran    
    Return    
  End        
    
    
  Update TMDOCU_CL02    
  Set CO_ESTA_DOCU = 'ANU',
  CO_USUA_MODI = @ISCO_USUA_MODI,  
  FE_USUA_MODI = GETDATE()    
  From TMDOCU_CL02 T1, TDCANJ_CL02 T2    
  Where T1.CO_EMPR = @ISCO_EMPR    
   And T1.CO_CLIE = @ISCO_CLIE    
 And T1.CO_EMPR = T2.CO_EMPR    
   And T1.CO_CLIE = T2.CO_CLIE    
 And T2.CO_UNID_CONC = @ISCO_UNID_CONC    
 And T2.NU_CANJ = @ISNU_CANJ    
 And T2.FE_CANJ = @IDFE_CANJ    
   And T1.CO_TIPO_DOCU = T2.CO_TIPO_DOCU    
 And T1.NU_DOCU_CLIE = T2.NU_DOCU_CLIE    
    
  If @@error <> 0    
  Begin    
    Rollback tran    
    Return    
  End        
    
    
       Update TCCANJ_CL02    
       Set TI_SITU = 'ANU',
       CO_USUA_MODI = @ISCO_USUA_MODI,  
       FE_USUA_MODI = GETDATE()  
       Where CO_EMPR = @ISCO_EMPR    
  And CO_UNID_CONC = @ISCO_UNID_CONC    
        And CO_CLIE=  @ISCO_CLIE    
        And NU_CANJ = @ISNU_CANJ    
        And FE_CANJ = @IDFE_CANJ    
    
    If @@error <> 0    
       Begin    
         Rollback tran    
         Return    
       End        
    
Commit Tran    
/*------------------------- Fin ------------------------------*/


GO
